home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr18
/
1000_qm.zip
/
1000-QM.SLT
next >
Wrap
Text File
|
1993-06-06
|
5KB
|
166 lines
//
// This is a Telix script for automatic up/downloading of .QWK and
// .REP mail packets via the Qmail mail door. It will will logon and
// then take you into the Qmail door, upload your .REP reply file
// and then delete it, and then "cycle" to the next command prompt
// and download your QWK packet file.
//
// If no REP file is found, the script will instead Download your
// QWK packet.
//
// When the script sees the "receive these messages (Y/N)?" message
// at the end of downloading it will stop and return Telix to manual
// operation. If no messages are found, simply hit ESC to stop
// the script.
//
// Only 2 types of entries are required in this script file ...
// user name & REP file location/name. Be sure there is a Semicolon
// at the end of the name & REP statement too.
//
// Type your name in between the str name[] = qoutes. (Line 40)
// ^^^^^^^^^^^^
// Type in the drive/dir/xxxxxxxx.rep in between the
// str file_name[] = qoutes. (Line 41)
// ^^^^^^^^^^^^^^^^^
//
// Next, this file must then be compiled with the Telix CS.EXE
// compiler to be used with Telix AND the 1000-QM.SLC filename
// inserted in the "Linked script" entry in the phone book.
//
// Your password must also be inserted in the "Password" entry in
// the phone book as well.
//
// To compile the script ... type CS 1000-QM. Both files must be in
// the same disk location.
//
// Copy the newly compiled 1000-QM.SLC file to the Telix location.
//
///////////////////////////////////////////////////////////////////////
str name[] = "FIRST LAST";
str file_name[] = "drive\directory\1000bbs.rep";
///////////////////////////////////////////////////////////////////////
main()
{
int stat; // initiate track var
int t1, // initiate individual
t2, // track variables
t3,
t4,
t5,
t6,
t7,
t8,
t9;
///////////////////////////////////////////////////////////////////////
alarm (2); // sound a connect
// alarm, 2 secs
// definitions of what strings to track. 0 is case sensitive on. 1 is off.
t1 = track ("Language # to use (Enter)=no change?", 1);
t2 = track ("graphics (Enter)=no?", 1);
t3 = track ("your first name?", 0);
t4 = track ("Password (Dots will echo)?", 0);
t5 = track ("More?", 0);
t6 = track ("Since 'Last Read' (Enter)=yes?", 0);
t7 = track ("Main Board Command?", 1);
t8 = track ("Qmail Command?", 0);
t9 = track ("receive these messages (Y/N)?", 0);
///////////////////////////////////////////////////////////////////////
while (1)
{
terminal(); // let Telix process any
// chars and keys
stat = track_hit(0); // see which (if any) track
// was hit
///////////////////////////////////////////////////////////////////////
if (stat == t1) // Language # to use
{
delay(10); // wait 1 second
cputs("2"); // send defined string
cputc('^M'); // send Carriage Return
track_free(t1); // free track handle (turn off)
}
else if(stat == t2) // Graphics
{
delay(10);
cputs("N Q");
cputc('^M');
track_free(t2);
}
else if(stat == t3) // Name
{
delay(10);
cputs(name);
cputc('^M');
track_free(t3);
}
else if(stat == t4) // Send password
{
delay(10);
cputs(_entry_pass);
cputc('^M');
track_free(t4);
}
else if(stat == t5) // More?
{
delay(10);
cputs("N");
cputc('^M');
}
else if(stat == t6) // Scan message base?
{
delay(10);
cputs("N");
cputc('^M');
track_free(t6);
}
else if(stat == t7) // Main Board Command
{
delay(10);
cputs("OPEN 3");
cputc('^M');
track_free(t7);
}
else if(stat == t8) // Check for .REP packet file &
{ // upload OR if not avail, download
delay(10); // QWK packet file via Qmail Command
if(filefind(file_name, 0)) // prompt.
{
delay(10);
cputs("U");
cputc('^M');
send('Z', file_name);
delay(10);
fdelete(file_name);
}
else
{
delay(10);
cputs("D"); // Download QWK packet.
cputc('^M');
track_free(t8);
}
}
else if(stat == t9) // receive these messages (Y/N)?
{
delay(10);
cputs("Y");
cputc('^M');
break; // done with script.
}
}
}